home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / patches / ami301c.zip / QKQUAD.SM$ / QKQUAD.SMM
INI File  |  1993-05-17  |  18KB  |  1,206 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Calculates real solutions for the Quadratic equation.
  19.     
  20.     
  21.     
  22.     
  23.     737684644
  24.     13
  25.     733695425
  26.     522
  27.     6
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Times New Roman
  60.         200
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         280
  103.         1
  104.         2
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [lay]
  112.     Standard
  113.     513
  114.     [rght]
  115.         15840
  116.         12240
  117.         1
  118.         1440
  119.         792
  120.         1
  121.         792
  122.         1440
  123.         0
  124.         1
  125.         0
  126.         1
  127.         0
  128.         2
  129.         1
  130.         1440
  131.         10800
  132.         12
  133.         1
  134.         720
  135.         1
  136.         1440
  137.         1
  138.         2160
  139.         1
  140.         2880
  141.         1
  142.         3600
  143.         1
  144.         4320
  145.         1
  146.         5040
  147.         1
  148.         5760
  149.         1
  150.         6480
  151.         1
  152.         7200
  153.         1
  154.         7920
  155.         1
  156.         8640
  157.     [hrght]
  158.     [lyfrm]
  159.         1
  160.         11200
  161.         0
  162.         0
  163.         12240
  164.         792
  165.         0
  166.         1
  167.         3
  168.         1 0 0 0 0 0 0
  169.         0
  170.         0
  171.         1
  172.     [frmlay]
  173.         792
  174.         12240
  175.         1
  176.         1440
  177.         0
  178.         1
  179.         792
  180.         1440
  181.         0
  182.         1
  183.         0
  184.         1
  185.         1
  186.         0
  187.         1
  188.         1440
  189.         10800
  190.         2
  191.         2
  192.         4680
  193.         3
  194.         9360
  195.     [txt]
  196. >
  197.     [frght]
  198.     [lyfrm]
  199.         1
  200.         13248
  201.         0
  202.         15048
  203.         12240
  204.         15840
  205.         0
  206.         1
  207.         3
  208.         1 0 0 0 0 0 0
  209.         0
  210.         0
  211.         2
  212.     [frmlay]
  213.         15840
  214.         12240
  215.         1
  216.         1440
  217.         720
  218.         1
  219.         15120
  220.         1440
  221.         0
  222.         1
  223.         0
  224.         1
  225.         1
  226.         0
  227.         1
  228.         1440
  229.         10800
  230.         2
  231.         2
  232.         4680
  233.         3
  234.         9360
  235.     [txt]
  236. >
  237. [elay]
  238. [l1]
  239.     0
  240. [edoc]
  241. <:#240,9360>Declare FontDlg(Action, Hdlg, id)
  242.  
  243. <:#240,9360>Declare CellEngine(Action,Formula)
  244.  
  245. <:#240,9360>
  246.  
  247. <:#240,9360>Define Descript "Enter the coefficients for the second order polynomial above: "
  248.  
  249. <:#240,9360>
  250.  
  251. <:#240,9360>Define AnswerHolder1    1007
  252.  
  253. <:#240,9360>Define AnswerHolder2    1006
  254.  
  255. <:#240,9360>Define DescriptHolder    1008
  256.  
  257. <:#240,9360>Define    Complex        "Complex root"
  258.  
  259. <:#240,9360>
  260.  
  261. @Subhead@<:#284,9360>Function Main()
  262.  
  263. <:#240,9360>MacName = GetRunningMacroFile$()
  264.  
  265. <:#240,9360>SetDlgCallBack(0, "{MacName}!InitDlg")
  266.  
  267. <:#240,9360>SetDlgCallBack(8001, "{MacName}!CallBack")
  268.  
  269. <:#240,9360>SetDlgCallBack(8000, "{MacName}!CallBack")
  270.  
  271. <:#240,9360>SetDlgCallBack(8002, "{MacName}!CallBack")
  272.  
  273. <:#240,9360>
  274.  
  275. <:#240,9360>FontDlg(1,0,0)    'Create font
  276.  
  277. <:#240,9360>
  278.  
  279. <:#240,9360>CellEngine(1,0)        'loads cell engine
  280.  
  281. <:#240,9360>FillEdit(DescriptHolder,Descript)
  282.  
  283. <:#240,9360>macpath  = GetMacPath$()
  284.  
  285. <:#240,9360>FillEdit(1001,"{macpath}QkQuad.bmt")
  286.  
  287. <:#240,9360>
  288.  
  289. <:#240,9360>FillEdit(20,1)
  290.  
  291. @Outline3@<:#240,9360>DlgKeyInterrupt(112, "{macName}!DisplayHelp")
  292.  
  293. @Outline3@<:#240,9360>
  294.  
  295. <:#240,9360>box = DialogBox(".","QuickQuad")
  296.  
  297. <:#240,9360>'singlestep(1)
  298.  
  299. <:#240,9360>If  box = 3 then    'user wants to copy
  300.  
  301. <:#240,9360>    Answ1 = GetDialogField$(8003)
  302.  
  303. <:#240,9360>    Answ2 = GetDialogField$(8004)
  304.  
  305. <:#240,9360>    If GetDialogField$(20)
  306.  
  307. <:#240,9360>        If (Answ1 <<<;> "") 
  308.  
  309. <:#240,9360>            ClipboardWrite("{Answ1}",1)
  310.  
  311. <:#240,9360>        Else
  312.  
  313. <:#240,9360>            ClipboardWrite("",1)    'if no real answer then clear the clipboard form last real result
  314.  
  315. <:#240,9360>        Endif
  316.  
  317. <:#240,9360>    ElseIf GetDialogField$(21)
  318.  
  319. <:#240,9360>        If (Answ2 <<<;> "") 
  320.  
  321. <:#240,9360>            ClipboardWrite("{Answ2}",1)
  322.  
  323. <:#240,9360>        Else
  324.  
  325. <:#240,9360>            ClipboardWrite("",1)    'if no real answer then clear the clipboard form last real result
  326.  
  327. <:#240,9360>        Endif
  328.  
  329. <:#240,9360>    Endif
  330.  
  331. <:#240,9360>Endif
  332.  
  333. <:#240,9360>
  334.  
  335. <:#240,9360>FontDlg(4,0,0)    'Free font object
  336.  
  337. <:#240,9360>CellEngine(0,0)        'Unload cell engine
  338.  
  339. <:#240,9360>End Function
  340.  
  341. @Subhead@<:#284,9360>Function Callback(hdlg,id,val)
  342.  
  343. <:#240,9360>IgnoreKeyboard(2)
  344.  
  345. <:#240,9360>    A = GetDlgItemText(hDlg, 8001)
  346.  
  347. <:#240,9360>    B = GetDlgItemText(hDlg, 8000)
  348.  
  349. <:#240,9360>    C = GetDlgItemText(hDlg, 8002)
  350.  
  351. <:#240,9360>
  352.  
  353. <:#240,9360>
  354.  
  355. <:#240,9360>    Det =   B*B - (4*A*C) 
  356.  
  357. <:#240,9360>    
  358.  
  359. <:#240,9360>    if Det <;>=  0
  360.  
  361. <:#240,9360>        Det = CellEngine(3, "@SQRT({Det})")
  362.  
  363. <:#240,9360>        iFlag = 0
  364.  
  365. <:#240,9360>        If (a != 0 and a !="") and Isnumeric(a)
  366.  
  367. <:#240,9360>            Ans1  =  (  -1* B - Det )/(2*A)
  368.  
  369. <:#240,9360>            Ans2 =  (  -1* B + Det  )/(2*A)
  370.  
  371. <:#240,9360>        Else
  372.  
  373. <:#240,9360>            Ans1 = ""
  374.  
  375. <:#240,9360>            Ans2 = ""
  376.  
  377. <:#240,9360>        Endif
  378.  
  379. <:#240,9360>
  380.  
  381. <:#240,9360>    Else
  382.  
  383. <:#240,9360>        ' the roots are complex
  384.  
  385. <:#240,9360>        Det = CellEngine(3, "@SQRT({-Det})")
  386.  
  387. <:#240,9360>        iFlag = 1
  388.  
  389. <:#240,9360>        Ans1  =  Complex
  390.  
  391. <:#240,9360>        Ans2 =  Complex
  392.  
  393. <:#240,9360>
  394.  
  395. <:#240,9360>    EndIf
  396.  
  397. <:#240,9360>    SetDlgItemText( hDlg, AnswerHolder1,Ans1)
  398.  
  399. <:#240,9360>    SetDlgItemText( hDlg, 8003,Ans1)
  400.  
  401. <:#240,9360>
  402.  
  403. <:#240,9360>    SetDlgItemText( hDlg, AnswerHolder2,Ans2)
  404.  
  405. <:#240,9360>    SetDlgItemText( hDlg,8004,Ans2)
  406.  
  407. <:#240,9360>
  408.  
  409. <:#240,9360>end function
  410.  
  411. @Subhead@<:#284,9360>
  412.  
  413. @Subhead@<:#284,9360>Function InitDlg(Hdlg, Id, Value)
  414.  
  415. <:#240,9360>For x = 1001 to 1008
  416.  
  417. <:#240,9360>    FontDlg(3, Hdlg, x)
  418.  
  419. <:#240,9360>Next
  420.  
  421. <:#240,9360>FontDlg(3,Hdlg, 20)
  422.  
  423. <:#240,9360>FontDlg(3,Hdlg, 21)
  424.  
  425. <:#240,9360>'SetDlgItemText( hDlg 1011,Descript)
  426.  
  427. <:#240,9360>End Function
  428.  
  429. @Subhead@<:#284,9360>
  430.  
  431. @Subhead@<:#284,9360>function DisplayHelp()
  432.  
  433. @Outline2@<:#240,9360>' two defines needed for help.  The help name and panel number are defined above
  434.  
  435. @Outline2@<:#240,9360>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
  436.  
  437. @Outline2@<:#240,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  438.  
  439. @Outline2@<:#240,9360>prohWnd = FindWindowa("AmiProWndA", 0)
  440.  
  441. @Outline2@<:#240,9360>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
  442.  
  443. @Outline2@<:#240,9360>PanelNum= 90 
  444.  
  445. @Outline2@<:#240,9360>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
  446.  
  447. @Outline2@<:#240,9360>end function
  448.  
  449. @Subhead@<:#284,9360>
  450.  
  451. @Subhead@<:#284,9360>
  452.  
  453. @Subhead@<:#284,9360>
  454.  
  455. <:#240,9360>
  456.  
  457. @Subhead@<:#284,9360>Function CellEngine(Action,Formula)
  458.  
  459. <:#240,9360>'Available Actions
  460.  
  461. <:#240,9360>'    1         Start the engine and allocate globalvar
  462.  
  463. <:#240,9360>'    2        Return the handle to the instance of the sheet
  464.  
  465. <:#240,9360>'    3        Pass the formula as the second paramater
  466.  
  467. <:#240,9360>'    0        Shut everything down
  468.  
  469. <:#240,9360>'    Default    Expect a formula and return an answer
  470.  
  471. <:#240,9360>
  472.  
  473. <:#240,9360>' these defines may be useful at the beginning of your macro
  474.  
  475. <:#240,9360>Define StartEngine    1
  476.  
  477. <:#240,9360>Define GetInstance    2
  478.  
  479. <:#240,9360>Define CloseEngine    0
  480.  
  481. <:#240,9360>
  482.  
  483. <:#240,9360>Define    CECREATEINSTANCE(LPHANDLE)    DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
  484.  
  485. <:#240,9360>Define    CEDESTROYINSTANCE(HANDLE)    DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
  486.  
  487. <:#480,9360>Define    CECALCNOW(HINSTANCE, lpFormula, lpOutPut)    DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
  488.  
  489. <:#240,9360>
  490.  
  491. <:#240,9360>DefStr hInstance, Answer, Var;
  492.  
  493. <:#240,9360>Mac = GetRunningMacroFile$()
  494.  
  495. <:#240,9360>GlobalInstance = StrCat$(Mac,"hIstance")
  496.  
  497. <:#240,9360>
  498.  
  499. <:#240,9360>Switch Action
  500.  
  501. <:#240,9360>    Case 1
  502.  
  503. <:#240,9360>        ' start the engine
  504.  
  505. <:#240,9360>        LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
  506.  
  507. <:#240,9360>        If LibId = 0
  508.  
  509. <:#240,9360>            Message("LTSCE01.DLL not found.  Copy the dll to your windows directory")    
  510.  
  511. <:#240,9360>            Return -1;
  512.  
  513. <:#240,9360>        Endif
  514.  
  515. <:#240,9360>        RetVal = CECREATEINSTANCE(&hInstance)
  516.  
  517. <:#240,9360>        AllocGlobalVar("{GlobalInstance}",1)
  518.  
  519. <:#240,9360>        AllocGlobalVar("{Mac}LibId",1)
  520.  
  521. <:#240,9360>        SetGlobalVar("{Mac}Libid",LibId)
  522.  
  523. <:#240,9360>        SetGlobalVar("{GlobalInstance}",hInstance)
  524.  
  525. <:#240,9360>        Return hInstance;
  526.  
  527. <:#240,9360>        Break;
  528.  
  529. <:#240,9360>
  530.  
  531. <:#240,9360>    Case 2
  532.  
  533. <:#240,9360>        ' return the handle to the instance of the sheet
  534.  
  535. <:#240,9360>        AllocGlobalVar("{GlobalInstance}",1)
  536.  
  537. <:#240,9360>        hInstance = GetGlobalVar$("{GlobalInstance}")
  538.  
  539. <:#240,9360>        Return hInstance;
  540.  
  541. <:#240,9360>        Break;
  542.  
  543. <:#240,9360>
  544.  
  545. <:#240,9360>    Case 3
  546.  
  547. <:#240,9360>        ' Calculate the formula and return the answer
  548.  
  549. <:#240,9360>            AllocGlobalVar("{GlobalInstance}",1)
  550.  
  551. <:#240,9360>            hInstance = GetGlobalVar$("{GlobalInstance}")
  552.  
  553. <:#240,9360>            CECalcNow(hInstance,"{Formula}",&Answer)
  554.  
  555. <:#240,9360>            Return Answer;
  556.  
  557. <:#240,9360>        Break;
  558.  
  559. <:#240,9360>
  560.  
  561. <:#240,9360>
  562.  
  563. <:#240,9360>    Case 0
  564.  
  565. <:#240,9360>        ' destroy the instance of the sheet and free the global var and libid
  566.  
  567. <:#240,9360>        AllocGlobalVar("{GlobalInstance}",1)
  568.  
  569. <:#240,9360>        AllocGlobalVar("{Mac}LibId",1)
  570.  
  571. <:#240,9360>        hInstance = GetGlobalVar$("{GlobalInstance}")
  572.  
  573. <:#240,9360>        LibId = GetGlobalVar$("{Mac}LibId")
  574.  
  575. <:#240,9360>        If hInstance
  576.  
  577. <:#240,9360>            CEDestroyInstance(hInstance)
  578.  
  579. <:#240,9360>            DllFreeLib(Libid)
  580.  
  581. <:#240,9360>        Endif
  582.  
  583. <:#240,9360>        FreeGlobalVar("{GlobalInstance}")
  584.  
  585. <:#240,9360>        FreeGlobalVar("{Mac}LibId")
  586.  
  587. <:#240,9360>        Break;
  588.  
  589. <:#240,9360>
  590.  
  591. <:#240,9360>    Default
  592.  
  593. <:#240,9360>EndSwitch
  594.  
  595. <:#240,9360>End Function
  596.  
  597. @Subhead@<:#284,9360>
  598.  
  599. @Subhead@<:#284,9360>
  600.  
  601. @Subhead@<:#284,9360>Function FontDlg(Action, Hdlg, id)
  602.  
  603. <:#240,9360>' 1    Create a font and allocvar
  604.  
  605. <:#240,9360>' 2    Return the handle of the create font 
  606.  
  607. <:#240,9360>' 3    Set the id specified to the font
  608.  
  609. <:#240,9360>' 4    Freeglobalvar and delete created object
  610.  
  611. <:#240,9360>
  612.  
  613. @Outline2@<:#480,9360>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  614.  
  615. @Outline2@<:#240,9360>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  616.  
  617. @Outline2@<:#480,9360>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  618.  
  619. @Outline2@<:#240,9360>
  620.  
  621. @Outline2@<:#240,9360>
  622.  
  623. <:#240,9360>Switch Action
  624.  
  625. <:#240,9360>    Case 1    ' Create the font and store it
  626.  
  627. @Outline2@<:#240,9360>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  628.  
  629. <:#240,9360>        AllocGlobalVar("FontHandle",1)
  630.  
  631. <:#240,9360>        If Font
  632.  
  633. <:#240,9360>            SetGlobalVar("FontHandle",Font)
  634.  
  635. <:#240,9360>            Return Font
  636.  
  637. <:#240,9360>        Else
  638.  
  639. <:#240,9360>            Return 0;    ' no font
  640.  
  641. <:#240,9360>        Endif
  642.  
  643. <:#240,9360>        Break;
  644.  
  645. <:#240,9360>    Case 2    ' Return the handle to the font
  646.  
  647. <:#240,9360>        Handle = GetGlobalVar$("FontHandle")
  648.  
  649. <:#240,9360>        If Handle 
  650.  
  651. <:#240,9360>            Return Handle
  652.  
  653. <:#240,9360>        Else
  654.  
  655. <:#240,9360>            Return 0
  656.  
  657. <:#240,9360>        Endif
  658.  
  659. <:#240,9360>
  660.  
  661. <:#240,9360>    Case 3    ' Set the id to the font
  662.  
  663. <:#240,9360>        Handle = GetGlobalVar$("FontHandle")
  664.  
  665. <:#240,9360>        If Handle 
  666.  
  667. <:#240,9360>            IdControl = GetDlgITem(Hdlg, id)
  668.  
  669. <:#240,9360>            SendMessageDlg(idControl, 0x30, Handle, 0)
  670.  
  671. <:#240,9360>            Return 1
  672.  
  673. <:#240,9360>        Else
  674.  
  675. <:#240,9360>            Return 0
  676.  
  677. <:#240,9360>        Endif
  678.  
  679. <:#240,9360>        Break;        
  680.  
  681. <:#240,9360>        
  682.  
  683. <:#240,9360>    Case 4    ' Delete the font and clear the var
  684.  
  685. <:#240,9360>        Handle = GetGlobalVar$("FontHandle")
  686.  
  687. <:#240,9360>        If Handle
  688.  
  689. <:#240,9360>            DeleteObjectDLG(Handle)
  690.  
  691. <:#240,9360>            Stat = 1    
  692.  
  693. <:#240,9360>        Else
  694.  
  695. <:#240,9360>            Stat = 0
  696.  
  697. <:#240,9360>        Endif
  698.  
  699. <:#240,9360>        FreeGlobalVar("FontHandle")
  700.  
  701. <:#240,9360>        Return Stat        
  702.  
  703. <:#240,9360>    Default
  704.  
  705. <:#240,9360>        Message("Fontdlg received an invalid parameter {Action}")
  706.  
  707. <:#240,9360>EndSwitch    
  708.  
  709. <:#240,9360>
  710.  
  711. <:#240,9360>End Function
  712.  
  713. @Subhead@<:#284,9360>
  714.  
  715. <:#240,9360>
  716.  
  717. <:#240,9360>
  718.  
  719. <:#240,9360>
  720.  
  721. <:#240,9360>
  722.  
  723. <:#240,9360>
  724.  
  725. <:#240,9360>
  726.  
  727. <:#240,9360>
  728.  
  729. <:#240,9360>
  730.  
  731. <:#240,9360>
  732.  
  733. <:#240,9360>
  734.  
  735. <:#240,9360>
  736.  
  737. <:#240,9360>
  738.  
  739. <:#240,9360>
  740.  
  741. <:#240,9360>
  742.  
  743. <:#240,9360>
  744.  
  745. <:#240,9360>
  746.  
  747. <:#240,9360>
  748.  
  749. <:#240,9360>
  750.  
  751. <:#240,9360>
  752.  
  753. <:#240,9360>
  754.  
  755. <:#240,9360>
  756.  
  757. <:#240,9360>
  758.  
  759. <:#240,9360>
  760.  
  761. <:#240,9360>
  762.  
  763. <:#240,9360>
  764.  
  765. <:#240,9360>
  766.  
  767. <:#240,9360>
  768.  
  769. <:#240,9360>
  770.  
  771. <:#240,9360>
  772.  
  773. <:#240,9360>
  774.  
  775. <:#240,9360>
  776.  
  777. <:#240,9360>
  778.  
  779. <:#240,9360>
  780.  
  781. <:#240,9360>
  782.  
  783. <:#240,9360>
  784.  
  785. <:#240,9360>
  786.  
  787. DIALOG    QuickQuad
  788.  
  789. -2134376448    17    59    39    136    91    ""    "AmiDialog"    "QuickQuadratic"
  790.  
  791. FONT    8    "Helv"
  792.  
  793. 19    46    29    11    8001    1350631424    "edit"    ""    0 
  794.  
  795. 19    60    29    11    8000    1350631424    "edit"    ""    0 
  796.  
  797. 19    74    29    11    8002    1350631552    "edit"    ""    0 
  798.  
  799. 93    3    40    14    1    1342373889    "button"    "Done"    0 
  800.  
  801. 93    19    40    14    3    1342373888    "button"    "Copy"    0 
  802.  
  803. 61    59    43    8    20    1342242825    "button"    "Answer 1="    0 
  804.  
  805. 61    68    42    11    21    1342242825    "button"    "Answer 2="    0 
  806.  
  807. 4    4    63    12    1001    1342177290    "static"    ""    0 
  808.  
  809. 7    49    9    10    1002    1342177280    "static"    "A:"    0 
  810.  
  811. 7    63    9    10    1003    1342177280    "static"    "B:"    0 
  812.  
  813. 7    77    9    10    1004    1342177280    "static"    "C:"    0 
  814.  
  815. 56    49    40    8    1005    1342177280    "static"    "Solve for x:"    0 
  816.  
  817. 105    70    23    9    1006    1342177280    "static"    ""    0 
  818.  
  819. 105    60    23    9    1007    1342177280    "static"    ""    0 
  820.  
  821. 7    19    62    24    1008    1342177280    "static"    ""    0 
  822.  
  823. 252    35    40    12    8003    1350631552    "edit"    ""    0 
  824.  
  825. 292    35    36    12    8004    1350631552    "edit"    ""    0 
  826.  
  827. END DIALOG
  828.  
  829. >
  830.  
  831. [Embedded]
  832. 00012988
  833. >
  834. [macsum] 7
  835. Main 0 0 6 10
  836. Callback 678 3 9 50
  837. InitDlg 1333 3 2 86
  838. DisplayHelp 1533 0 4 95
  839. CellEngine 1718 2 8 108
  840. FontDlg 2665 3 5 180
  841. QuickQuad 3511 0 -1 273
  842. [macse]
  843. 14 Main
  844. 0 802
  845. 13
  846. 8 1
  847. 0 41 0 "{1}!InitDlg"
  848. 0 41 8001 "{1}!CallBack"
  849. 0 41 8000 "{1}!CallBack"
  850. 0 41 8002 "{1}!CallBack"
  851. 16 FontDlg 1 0 0
  852. 16 CellEngine 1 0
  853. 0 31 1008 "Enter the coefficients for the second order polynomial above: "
  854. 0 295
  855. 13
  856. 8 2
  857. 0 31 1001 "{2}QkQuad.bmt"
  858. 0 31 20 1
  859. 0 47 112 "{1}!DisplayHelp"
  860. 0 26 "." "QuickQuad"
  861. 13
  862. 8 3
  863. 6 3
  864. 5 3
  865. 18 0
  866. 11 00000629
  867. 0 27 8003
  868. 13
  869. 8 4
  870. 0 27 8004
  871. 13
  872. 8 5
  873. 0 27 20
  874. 13
  875. 11 00000531
  876. 6 4
  877. 7 ""
  878. 18 1
  879. 11 00000505
  880. 0 1038 "{4}" 1
  881. 10 00000518
  882. 0 1038 "" 1
  883. 10 00000629
  884. 0 27 21
  885. 13
  886. 11 00000629
  887. 6 5
  888. 7 ""
  889. 18 1
  890. 11 00000616
  891. 0 1038 "{5}" 1
  892. 10 00000629
  893. 0 1038 "" 1
  894. 16 FontDlg 4 0 0
  895. 16 CellEngine 0 0
  896. 6 0
  897. 15
  898. 9
  899. 14 Callback
  900. 0 32 2
  901. 0 42 "{0}" 8001
  902. 13
  903. 8 4
  904. 0 42 "{0}" 8000
  905. 13
  906. 8 5
  907. 0 42 "{0}" 8002
  908. 13
  909. 8 6
  910. 6 5
  911. 6 5
  912. 4 0
  913. 5 4
  914. 6 4
  915. 4 0
  916. 6 6
  917. 4 0
  918. 3 1
  919. 8 7
  920. 6 7
  921. 5 0
  922. 18 2
  923. 11 00000452
  924. 16 CellEngine 3 "@SQRT({7})"
  925. 13
  926. 8 7
  927. 5 0
  928. 8 8
  929. 6 4
  930. 5 0
  931. 18 1
  932. 6 4
  933. 7 ""
  934. 18 1
  935. 1 1
  936. 0 277 "{4}"
  937. 13
  938. 1 1
  939. 11 00000416
  940. 5 -1
  941. 6 5
  942. 4 0
  943. 6 7
  944. 3 1
  945. 5 2
  946. 6 4
  947. 4 0
  948. 4 1
  949. 8 9
  950. 5 -1
  951. 6 5
  952. 4 0
  953. 6 7
  954. 3 0
  955. 5 2
  956. 6 4
  957. 4 0
  958. 4 1
  959. 8 10
  960. 10 00000439
  961. 7 ""
  962. 8 9
  963. 7 ""
  964. 8 10
  965. 10 00000549
  966. 16 CellEngine 3 "@SQRT({11})"
  967. 13
  968. 8 7
  969. 5 1
  970. 8 8
  971. 7 "Complex root"
  972. 8 9
  973. 7 "Complex root"
  974. 8 10
  975. 0 43 "{0}" 1007 "{9}"
  976. 0 43 "{0}" 8003 "{9}"
  977. 0 43 "{0}" 1006 "{10}"
  978. 0 43 "{0}" 8004 "{10}"
  979. 6 3
  980. 15
  981. 9
  982. 14 InitDlg
  983. 5 1001
  984. 8 4
  985. 5 1008
  986. 6 4
  987. 18 2
  988. 12 00000103
  989. 10 00000142
  990. 5 1
  991. 6 4
  992. 3 0
  993. 8 4
  994. 10 00000025
  995. 16 FontDlg 3 "{0}" "{4}"
  996. 10 00000070
  997. 16 FontDlg 3 "{0}" 20
  998. 16 FontDlg 3 "{0}" 21
  999. 6 3
  1000. 15
  1001. 9
  1002. 14 DisplayHelp
  1003. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  1004. 13
  1005. 8 1
  1006. 0 798
  1007. 13
  1008. 0 16 [X] "HelpPack.hlp"
  1009. 13
  1010. 8 2
  1011. 5 90
  1012. 8 3
  1013. 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
  1014. 6 0
  1015. 15
  1016. 9
  1017. 14 CellEngine
  1018. 0 802
  1019. 13
  1020. 8 6
  1021. 0 16 "{6}" "hIstance"
  1022. 13
  1023. 8 7
  1024. 5 1
  1025. 6 0
  1026. 18 0
  1027. 11 00000427
  1028. 0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
  1029. 13
  1030. 8 8
  1031. 6 8
  1032. 5 0
  1033. 18 0
  1034. 11 00000258
  1035. 0 3 "LTSCE01.DLL not found.  Copy the dll to your windows directory"
  1036. 5 -1
  1037. 15
  1038. 9
  1039. 0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
  1040. 13
  1041. 8 9
  1042. 0 271 "{7}" 1
  1043. 0 271 "{6}LibId" 1
  1044. 0 264 "{6}Libid" "{8}"
  1045. 0 264 "{7}" "{3}"
  1046. 6 3
  1047. 15
  1048. 9
  1049. 10 00000935
  1050. 10 00000935
  1051. 5 2
  1052. 6 0
  1053. 18 0
  1054. 11 00000531
  1055. 0 271 "{7}" 1
  1056. 0 265 "{7}"
  1057. 13
  1058. 8 3
  1059. 6 3
  1060. 15
  1061. 9
  1062. 10 00000935
  1063. 10 00000935
  1064. 5 3
  1065. 6 0
  1066. 18 0
  1067. 11 00000686
  1068. 0 271 "{7}" 1
  1069. 0 265 "{7}"
  1070. 13
  1071. 8 3
  1072. 0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4
  1073. 6 4
  1074. 15
  1075. 9
  1076. 10 00000935
  1077. 10 00000935
  1078. 5 0
  1079. 6 0
  1080. 18 0
  1081. 11 00000935
  1082. 0 271 "{7}" 1
  1083. 0 271 "{6}LibId" 1
  1084. 0 265 "{7}"
  1085. 13
  1086. 8 3
  1087. 0 265 "{6}LibId"
  1088. 13
  1089. 8 8
  1090. 6 3
  1091. 11 00000878
  1092. 0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
  1093. 0 298 "{8}"
  1094. 0 266 "{7}"
  1095. 0 266 "{6}LibId"
  1096. 10 00000935
  1097. 10 00000935
  1098. 6 2
  1099. 15
  1100. 9
  1101. 14 FontDlg
  1102. 5 1
  1103. 6 0
  1104. 18 0
  1105. 11 00000255
  1106. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  1107. 13
  1108. 8 4
  1109. 0 271 "FontHandle" 1
  1110. 6 4
  1111. 11 00000217
  1112. 0 264 "FontHandle" "{4}"
  1113. 6 4
  1114. 15
  1115. 9
  1116. 10 00000229
  1117. 5 0
  1118. 15
  1119. 9
  1120. 10 00000834
  1121. 10 00000834
  1122. 5 2
  1123. 6 0
  1124. 18 0
  1125. 11 00000381
  1126. 0 265 "FontHandle"
  1127. 13
  1128. 8 5
  1129. 6 5
  1130. 11 00000356
  1131. 6 5
  1132. 15
  1133. 9
  1134. 10 00000368
  1135. 5 0
  1136. 15
  1137. 9
  1138. 10 00000834
  1139. 5 3
  1140. 6 0
  1141. 18 0
  1142. 11 00000596
  1143. 0 265 "FontHandle"
  1144. 13
  1145. 8 5
  1146. 6 5
  1147. 11 00000558
  1148. 0 44 "{1}" "{2}"
  1149. 13
  1150. 8 6
  1151. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  1152. 5 1
  1153. 15
  1154. 9
  1155. 10 00000570
  1156. 5 0
  1157. 15
  1158. 9
  1159. 10 00000834
  1160. 10 00000834
  1161. 5 4
  1162. 6 0
  1163. 18 0
  1164. 11 00000785
  1165. 0 265 "FontHandle"
  1166. 13
  1167. 8 5
  1168. 6 5
  1169. 11 00000730
  1170. 0 284 "gdi,DeleteObject,HH" "{5}"
  1171. 5 1
  1172. 8 7
  1173. 10 00000740
  1174. 5 0
  1175. 8 7
  1176. 0 266 "FontHandle"
  1177. 6 7
  1178. 15
  1179. 9
  1180. 10 00000834
  1181. 0 3 "Fontdlg received an invalid parameter {0}"
  1182. 6 3
  1183. 15
  1184. 9
  1185. DIALOG QuickQuad
  1186. -2134376448 17 59 39 136 91 "" "AmiDialog" "QuickQuadratic" 
  1187. FONT 8 "Helv" 
  1188. 19 46 29 11 8001 1350631424 "edit" "" 0 
  1189. 19 60 29 11 8000 1350631424 "edit" "" 0 
  1190. 19 74 29 11 8002 1350631552 "edit" "" 0 
  1191. 93 3 40 14 1 1342373889 "button" "Done" 0 
  1192. 93 19 40 14 3 1342373888 "button" "Copy" 0 
  1193. 61 59 43 8 20 1342242825 "button" "Answer 1=" 0 
  1194. 61 68 42 11 21 1342242825 "button" "Answer 2=" 0 
  1195. 4 4 63 12 1001 1342177290 "static" "" 0 
  1196. 7 49 9 10 1002 1342177280 "static" "A:" 0 
  1197. 7 63 9 10 1003 1342177280 "static" "B:" 0 
  1198. 7 77 9 10 1004 1342177280 "static" "C:" 0 
  1199. 56 49 40 8 1005 1342177280 "static" "Solve for x:" 0 
  1200. 105 70 23 9 1006 1342177280 "static" "" 0 
  1201. 105 60 23 9 1007 1342177280 "static" "" 0 
  1202. 7 19 62 24 1008 1342177280 "static" "" 0 
  1203. 252 35 40 12 8003 1350631552 "edit" "" 0 
  1204. 292 35 36 12 8004 1350631552 "edit" "" 0 
  1205. 00013013
  1206.